﻿Module Mo
    'Public Function GenererClePrimaire(ByVal nomcle As String, ByVal nomtable As String) As Integer
    '    Dim cle As Integer
    '    MySQLConnect.MaRequete = "SELECT Max(" & nomcle & ") FROM " & nomtable
    '    MySQLConnect.MaCommandeSpecialeRequete.CommandText = MySQLConnect.MaRequete
    '    MySQLConnect.MonRemplisseur.SelectCommand = MySQLConnect.MaCommandeSpecialeRequete
    '    MySQLConnect.MonRemplisseur.Fill(MySQLConnect.MonJeuDeDonnees, "Max" & nomtable)
    '    cle = MySQLConnect.MonJeuDeDonnees.Tables("Max" & nomtable).Rows(0).Item(0) + 1
    '    MySQLConnect.MonJeuDeDonnees.Tables("Max" & nomtable).Clear()
    '    Return (cle)
    'End Function

  

End Module
